SUBROUTINE RDWRT
C TO READ AND RWITE TONE-ROW LIBRARY FILE
	COMMON INV(12),IR(12),N(12),J(13,13),ISCAL(12),IS2(12),
	1 INP2(72),INP(72),NRW
	1,IC(6),ISQ(25,25),NAME(10),INOT(49),JA(12)
15	TYPE 13
	ACCEPT 2,NM
	REREAD 7,MA
	IF(MA.NE.0)GO TO 20
	IF(NM.EQ.' ')NM='ROWS'
	IF(NRW.EQ.'R')GO TO 1
CC	IF(LOOKD(NM))GO TO 1
C 'LOOKD' LOOKS FOR .DAT FILE -- 'LOOK' LOOKS FOR NO EXT.
	CALL OFILE(1,NM)
	WRITE(1,2)NAME
	WRITE(1,3)INP2
	END FILE 1
	RETURN
2	FORMAT(10A5)
3	FORMAT(72A1)
5	FORMAT(1X10A5)
7	FORMAT(I,10A5)
8	FORMAT(I,72A1)
13	FORMAT(' TYPE FILE NAME -- '$)
10	FORMAT(' TYPE NUMBER -- '$)
11	FORMAT(I3,') ',10A5)
1	CALL IFILE(1,NM)
	KA=1
4	READ(1,7,END=9)M,NAME
	TYPE 11,KA,NAME
	KA=KA+1
	READ(1,7,END=9)M,NAME
C READS ROW NOTES.
	GO TO 4
20	NM=NMX
	GO TO 21
9	TYPE 10
	ACCEPT 7,MA
21	IF(MA.LE.0.OR.MA.GT.KA)GO TO 15
	CALL IFILE(1,NM)
	DO 12 K=1,MA
	READ(1,7,END=9)MM,NAME
12	READ(1,8,END=9)MM,INP2
C  READS SOS FILES ONLY
C READS ROW NOTES.
	NMX=NM
	END

	SUBROUTINE MSS12
C  TO CREATE DATA FOR MSS PROG.
C  THIS IS A DUMMY
	END